home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #8 / 1999 CD 8 (black).iso / maskdemo / DATA1.CAB / Program_Executable_Files / Daventry / KQ / STARBALL.CS < prev    next >
Encoding:
Text File  |  1998-12-15  |  792 b   |  33 lines
  1. echo $1 $2 $3 $4 $5
  2. if test $2 == ConnorAction
  3.     if test $4 == do
  4.         if test $Daventry::Starglobe::Potion == 1
  5.             give Clarity
  6.             deleteObject potion
  7.             set Daventry::Starglobe::Potion 2
  8.         else
  9.             echo Say something
  10.             KQMonster::speak Connor Connor 1000 64 0 61 1 0
  11.         endif
  12.     else if test $4 == INVITEM_SpellPage
  13.         sendEvent 0 $1 KQAnimPlayEvent open
  14.         sendEvent 0 Connor KQStatsChangeRequestEvent 0 0 0 0 15
  15.         getEndLoop $1 $1 1
  16.         deleteObject $3
  17.     endif
  18.     endif
  19. else if test $2 == Cue
  20.     if test $3 == 300
  21.         if test $5 == open
  22.             echo open is done
  23.             sendEvent 0 $1 KQAnimPlayEvent lid
  24.             set Daventry::Starglobe::Potion 1
  25.             getEndLoop $1 $1 0
  26.             loadKQ Potion.kq
  27.             echo Say anything
  28.             KQMonster::speak Connor Connor 1000 64 42 0 1 0
  29.         endif
  30.     endif
  31. endif
  32. endif
  33.